use "C:\Users\m1049\Dropbox\Wang_PB Replication\data\main.dta",clear

* Figure H1: Universal ~ information * Income

reg universal t3##income_bin female whites i.education child trust partisanship ideology resentment egarlitarianism if attention_recode==1 & treatment!=2 & treatment!=4 , r

margins, dydx(t3) at(income_bin=(0 1))
mplotoffset, offset(0.15) xscale(range(-0.5 1.5)) recast(scatter) recastci(rspike) ///
 plotopts(mlabel(_margin) mlabstyle(%5.1fc) mlabcolor(black) mlabposition(3)) ///
 yline(0, lcolor("gray") lpattern(dash)) ///
 title("Support | Universal ~ Information * Income") xlabel(1 "High-Income" 0 "Low-Income") xtitle("") ytitle("Marginal Effect of Information", height(7)) ///
 legend(pos(6) col(2))

* Figure H2: Continuous Income

reg universal t3##c.income female whites i.education child trust partisanship ideology resentment egarlitarianism  if treatment!=2 & treatment!=4 & attention_recode==1, r

set scheme s2color
grstyle init
grstyle set plain
grstyle set color #333333
margins, dydx(t3) at(income=(1(1)15))
marginsplot, recast(scatter) recastci(rspike) yline(0, lcolor("gray") lpattern(dash)) ///
title("") xtitle("Household Incomes", height(7)) ytitle("Effects of Information Provision", height(7)) level(95)

* Figure H3: Subjective Income

reg universal t3##c.subjective  female whites i.education child trust partisanship ideology resentment egarlitarianism if treatment!=2 & treatment!=4 & attention_recode==1, r

set scheme s2color
grstyle init
grstyle set plain
grstyle set color #333333
margins, dydx(t3) at(subjective=(1(1)7))
marginsplot, recast(scatter) recastci(rspike) yline(0, lcolor("gray") lpattern(dash)) ///
title("") xtitle("Subjective Income Level", height(7)) ytitle("Effects of Information Provision", height(7)) level(95)
